;;;Construct a list of entity lists contained in a block.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
(defun c:blklst ()
  (setq elist nil)
  (setq blkname (ustr 1 "Block name: " blkname nil))
  (setq blkhead (tblsearch "block" blkname))
  (if (cdr(assoc -2 blkhead))
    (progn
      (setq ename (cdr(assoc -2 blkhead)))
      (while ename
        (if elist
          (setq elist (append elist (list (entget ename))))
          (setq elist (list (entget ename)))
        )
        (setq ename (entnext ename))
      )
    )
    (princ (strcat "\nBlock " blkname " not found! "))
  )
)